context("Testing simulated communities")

test_that("completely random community",{
  
})

test_that("random marks",{
  com=community(species = 1:100,x=1:100,y=1:100,plotdim = c(100,100),traits = data.frame(dbh=runif(100),sla=runif(100)))
  rcom=random_mark(com,"dbh")
  expect_true(any(rcom$dbh!=com$dbh))
  
})